home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64
/
[tr]finger chart
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
69 lines
5 ifa=0thena=1:load"ml r[213]",8,1
6 kk$=" press any key to continue "
9 k$="jkl:asdfghiuiopnm./zxcvbqwertyuiop@*^"
10 poke 53281,1:poke53280,1
11 goto5000
2001 print"[142][147] left hand [205] right hand "
2002 print" 1 [149]2 3 [159]4 5[144][205]6 [144]7 [149]8 9 [159]0 + - \"
2009 print" [144] q [149]w e [159]r t[144][205]y [144]u [149]i o [159]p ; @ * ^"
2010 print" [144] a [149]s d [159]f g[144][205]h [144]j [149]k l [159]: ; ="
2015 print" [144]shift[146] z [149]x c [159]v b[144][205]n [144]m [149], . [159]/ shift"
2017 print" space bar ":return
2018 print"[155] [213][192][201]3[155] [149]6[155][213][192][201]"
2019 print" [149]2[155][213][179] [221] [221] [171][201]9[155]"
2020 print" [221][221][160][171][201] [213][179] [221][221]"
2021 print" [221][221] [221][221][159]4[155] [144]7[155][221][221] [221][221]"
2022 print" [144]1[155][213][179][221] [221][221] [221][221] [221][171][201][159]10[155]"
2023 print" [221][221][221] [221][221] [221][221] [221][221][221]"
2024 print" [221] [171][192][201]5 6[155][213][192][179] [221]"
2025 print" [221] l [213][203] [202][201] r [221]"
2026 print" [221] [221] [221] [221]":return
2027 print" [159]t[144]y[159]pe [146][159]r[149]i[159]te"
2028 print" [159]b[144]y[159]: [146][159]t[144]ho[144]ma[149]s [146][144]u[149]si[159]t[144]alo"
2030 print"[151] hit any key to go to program"
2039 poke198,0
2040 getg$:ifg$=""then2040
2050 print"[147]load";chr$(34)"[tr]load me"chr$(34);",8"
2056 sys828:new
5000 gosub2001:print"lets practice the fingering":print"of the home keys[144]"
5001 print"place little finger of the left hand on the ";chr$(34);"a";chr$(34);" key."
5002 print"[149]put the left ring finger"
5003 print"on the ";chr$(34);"s";chr$(34);" key."
5012 print"put the left middle finger
5013 [153]"on the ";[199](34);"d";[199](34);" key."
5014 [153]"openput the left index finger
5015 print"on the ";chr$(34);"f";chr$(34);" key."
5025 print"put your left thumb on the ";chr$(34);"space bar";chr$(34);"."
5030 printkk$:gosub9000
5035 gosub2001
5041 print"[159]put the right little finger"
5043 print"on the ";chr$(34);":";chr$(34);" key."
5044 print"put the right ring finger"
5045 print"on the ";chr$(34);"l";chr$(34);" key."
5046 print"[149]put the right middle finger"
5047 print"on the ";chr$(34);"k";chr$(34);" key."
5048 print"[144]put the right index finger"
5049 print"on the ";chr$(34);"j";chr$(34);" key."
5050 print"put your right thumb on the ";chr$(34);"space bar";chr$(34);"."
5054 printkk$:gosub9000
5055 print"time to actually press keys..."
5060 forx=1tolen(k$)
5061 gosub2001
5062 ss$=mid$(k$,x,1):print"using the chart press the ";chr$(34);ss$;chr$(34);" key."
5063 getgt$:poke204,asc(gt$+chr$(0))
5064 ifgt$=""then5063
5065 ifgt$=ss$thenprint"very good!!":goto6000
5066 gosub2001:gosub2018:print"you pressed the ";chr$(34);gt$;chr$(34);" key"
5067 wg=wg+1
5068 print"it should have been the ";chr$(34);ss$;chr$(34);" key."
5070 print"to try it again...":printkk$:gosub9000:goto5061
6000 next
7000 if wg=0 then 7012
7001 print"you had ";wg;" incorrect!"
7002 print" do you want to try it again (y/n)"
7003 getag$:ifag$=""then7003
7005 ifag$="y"thenrun
7010 goto2027
9000 getff$:ifff$=""then9000
9001 return